home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / Options.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  22.8 KB  |  742 lines
  1. //------------------------------------
  2. //
  3. // OPTIONS screen functions
  4. //
  5. //------------------------------------
  6.  
  7. function OptionsGui::onOpen()
  8. {
  9.    //the IRC options page
  10.    IRCOptions::init();
  11.  
  12.    OptionsMovement::init();
  13.    OptionsVideo::init();
  14.    OptionsGraphics::init();
  15.    OptionsNetwork::init();
  16.    OptionsSound::init();
  17. }
  18.  
  19. function OptionsGui::onClose()
  20. {
  21.    //the IRC options page
  22.    IRCOptions::Shutdown();
  23.  
  24.    OptionsNetwork::shutdown();
  25. }
  26.  
  27. //---  OPTIONS VIDEO  ------------------------------------------------
  28.  
  29. function OptionsVideo::init()
  30. {
  31.    //validate the prefs
  32.    OptionsVideo::validate();
  33.  
  34.    //set the values in the controls
  35.    OptionsVideoMode::update();
  36.    FGCombo::setSelected(IDCTG_OPTS_VID_FULLSCRN, FGCombo::findEntry(IDCTG_OPTS_VID_FULLSCRN, $pref::VideoFullScreenDriver));
  37.    FGCombo::setSelected(IDCTG_OPTS_VID_WINDOW, FGCombo::findEntry(IDCTG_OPTS_VID_WINDOW, $pref::VideoWindowedDriver));
  38.    FGCombo::setSelected(IDCTG_OPTS_VID_RES, FGCombo::findEntry(IDCTG_OPTS_VID_RES, $pref::VideoFullScreenRes));
  39.  
  40.     //the openGL part
  41.     FGCombo::clear(OptionsVideo::OpenGLCombo);
  42.     FGCombo::addEntry(OptionsVideo::OpenGLCombo, "TNT/TNT2", 0);
  43.     FGCombo::addEntry(OptionsVideo::OpenGLCombo, "i740", 1);
  44.     FGCombo::addEntry(OptionsVideo::OpenGLCombo, "Generic", 2);
  45. //    FGCombo::addEntry(OptionsVideo::OpenGLCombo, "G200/G400", 3);
  46.     if ($pref::VideoOpenGLMode == "TNT/TNT2")
  47.     {
  48.         FGCombo::setSelected(OptionsVideo::OpenGLCombo, 0);
  49.     }
  50.     else if ($pref::VideoOpenGLMode == "i740")
  51.     {
  52.         FGCombo::setSelected(OptionsVideo::OpenGLCombo, 1);
  53.     }
  54.     else if ($pref::VideoOpenGLMode == "Generic")
  55.     {
  56.         FGCombo::setSelected(OptionsVideo::OpenGLCombo, 2);
  57.     }
  58.     else
  59.     {
  60.         FGCombo::setSelected(OptionsVideo::OpenGLCombo, 3);
  61.     }
  62.  
  63.    %temp = getWord(Control::getValue(IDCTG_OPTS_VID_FULLSCRN), 0); 
  64.     if (%temp == "OpenGL")
  65.     {
  66.         Control::setActive(OptionsVideo::OpenGLCombo, true);
  67.         OptionsVideo::OpenGLsetup();
  68.     }
  69.     else Control::setActive(OptionsVideo::OpenGLCombo, false);
  70.  
  71.    $pref::VideoGamma = $pref::Display::gammaValue / 2;
  72.    if ($pref::VideoGamma == 0) $pref::VideoGamma = 0.5;
  73.    Control::setValue(IDCTG_OPTS_VID_GAMMA, $pref::VideoGamma);
  74. }
  75.  
  76. function OptionsVideo::OpenGLsetup()
  77. {
  78.    %temp = getWord(Control::getValue(IDCTG_OPTS_VID_FULLSCRN), 0); 
  79.     if (%temp == "OpenGL")
  80.     {
  81.         Control::setActive(OptionsVideo::OpenGLCombo, true);
  82.         %temp = FGCombo::getSelected(OptionsVideo::OpenGLCombo);
  83.         if (%temp == 0)
  84.         {
  85.             $pref::VideoOpenGLMode = "TNT/TNT2";
  86.             OptionsVideo::setUpTNT();
  87.         }
  88.         else if (%temp == 1)
  89.         {
  90.             $pref::VideoOpenGLMode = "i740";
  91.             OptionsVideo::setUpi740();
  92.         }
  93.         else
  94.         {
  95.             $pref::VideoOpenGLMode = "Generic";
  96.             OptionsVideo::setUpGeneric();
  97.         }
  98. //        else
  99. //        {
  100. //            $pref::VideoOpenGLMode = "G200/G400";
  101. //            OptionsVideo::setUpG200G400();
  102. //        }
  103.     }
  104.     else
  105.     {
  106.         Control::setActive(OptionsVideo::OpenGLCombo, false);
  107.     }
  108. }
  109.  
  110. function OptionsVideo::validate()
  111. {
  112.    if ($pref::VideoFullScreen == "") $pref::VideoFullScreen = "FALSE";
  113.    if ($pref::VideoFullScreenDriver == "")
  114.    {
  115.       if (isGfxDriver(MainWindow, "Glide")) $pref::VideoFullScreenDriver = "Glide";
  116.       else $pref::VideoFullScreenDriver = "Software";
  117.    }
  118.    if ($pref::VideoWindowedDriver == "") $pref::VideoWindowedDriver = "Software";
  119.    if ($pref::VideoFullScreenRes == "") $pref::VideoFullScreenRes = "640x480";
  120.    if ($pref::VideoGamma == "") $pref::VideoGamma = "0.5";
  121. }
  122.  
  123. function OptionsVideo::onApply()
  124. {
  125.    //store the prefs...
  126.    $pref::VideoFullScreen       = Control::getValue(IDCTG_OPTS_VID_MODE_FS);
  127.    $pref::VideoFullScreenDriver = getWord(Control::getValue(IDCTG_OPTS_VID_FULLSCRN), 0); 
  128.    $pref::VideoWindowedDriver   = getWord(Control::getValue(IDCTG_OPTS_VID_WINDOW), 0);
  129.    $pref::VideoFullScreenRes    = Control::getValue(IDCTG_OPTS_VID_RES);
  130.     $pref::VideoOpenGLMode           = getWord(Control::getValue(OptionsVideo::OpenGLCombo), 0); 
  131.  
  132.    //validate the prefs
  133.    OptionsVideo::validate();
  134.  
  135.    //apply the prefs
  136.    OptionsVideo::apply();
  137. }
  138.  
  139. $firstTimeThroughApply = true;
  140.  
  141. function OptionsVideo::apply()
  142. {
  143.     //check the openGL setup
  144.     OptionsVideo::OpenGLsetup();
  145.  
  146.    setWindowedDevice(MainWindow, $pref::VideoWindowedDriver);
  147.    %temp = setFullscreenDevice(MainWindow, $pref::VideoFullScreenDriver);
  148.  
  149.    if (String::ICompare(%temp, "false") == 0) {
  150.       %temp = setFullscreenDevice(MainWindow, "Software");
  151.       if (String::ICompare(%temp, "false") != 0)
  152.          $pref::VideoFullScreenDriver = "Software";
  153.    }
  154.  
  155.    %fs = false;
  156.    if (String::ICompare($pref::VideoFullScreen, "TRUE") == 0) {
  157.       // set fs mode
  158.       setFullscreenMode(MainWindow, "true");
  159.       %fs = true;
  160.    }
  161.    else {
  162.       // set windowed mode
  163.       setFullscreenMode(MainWindow, "false");
  164.  
  165.       if ($firstTimeThroughApply == true) {
  166.          if (GUI::isIn8BitMode() == "true") {
  167.             GUI::issue8BitWarning();
  168.          }
  169.          $firstTimeThroughApply = false;
  170.       }
  171.    }
  172.  
  173.    if ($pref::VideoFullScreenRes != "") {
  174.       setFSResolution(MainWindow, $pref::VideoFullScreenRes);
  175.    }
  176.    if (%fs == true) {
  177.       if (isVirtualFS(MainWindow) == true) {
  178.          echo("Virtual FS");
  179.          $useLowRes3D = true;
  180.       } else {
  181.          $useLowRes3D = false;
  182.       }
  183.    }
  184.  
  185.    flushTextureCache();
  186. }
  187.  
  188. function OptionsVideoMode::update()
  189. {
  190.    Control::setValue(IDCTG_OPTS_VID_MODE_FS, $pref::VideoFullScreen);
  191.    if (! String::ICompare($pref::VideoFullScreen, "FALSE"))
  192.    {
  193.       Control::setValue(IDCTG_OPTS_VID_MODE_WIN, "TRUE");
  194.    }
  195.    else
  196.    {
  197.       Control::setValue(IDCTG_OPTS_VID_MODE_WIN, "FALSE");
  198.    }
  199. }
  200.  
  201. function OptionsVideo::setGamma()
  202. {
  203.    $pref::VideoGamma = Control::getValue(IDCTG_OPTS_VID_GAMMA);
  204.    setGamma(MainWindow, 0.05 + (1.95 * $pref::VideoGamma));
  205.    flushTextureCache();
  206.    resetUpdateRegion(MainWindow);
  207. }
  208.  
  209. function OptionsVideo::setUpTNT()
  210. {
  211.     echo("setting up TNT/TNT2");
  212.    $pref::OpenGL::NoPackedTextures   = false;
  213.    $pref::OpenGL::NoPalettedTextures = true;
  214.  
  215.    flushTextureCache();
  216. }
  217.  
  218. function OptionsVideo::setUpi740()
  219. {
  220.     echo("setting up i740");
  221.    $pref::OpenGL::NoPackedTextures   = true;
  222.    $pref::OpenGL::NoPalettedTextures = true;
  223.  
  224.    flushTextureCache();
  225. }
  226.  
  227. function OptionsVideo::setUpGeneric()
  228. {
  229.     echo("setting up Generic OpenGL");
  230.    $pref::OpenGL::NoPackedTextures   = true;
  231.    $pref::OpenGL::NoPalettedTextures = true;
  232.  
  233.    flushTextureCache();
  234. }
  235.  
  236. function OptionsVideo::setUpG200G400()
  237. {
  238.     echo("setting up G200/G400");
  239.    $pref::OpenGL::NoPackedTextures   = true;
  240.    $pref::OpenGL::NoPalettedTextures = true;
  241.  
  242.    flushTextureCache();
  243. }
  244.  
  245. //---  OPTIONS MOVEMENT  ------------------------------------------------
  246.  
  247. $minMouseSensitivity = 0.0002;
  248. $maxMouseSensitivity = 0.004;
  249.  
  250. function OptionsMovement::init()
  251. {
  252.    %sensitivity = Client::getMouseSensitivity("playMap.sae");
  253.    %percentage = (%sensitivity - $minMouseSensitivity) / ($maxMouseSensitivity - $minMouseSensitivity);
  254.    Control::setValue(IDCTG_OPTS_CFG_MOUSE_SENSITIVE, %percentage);
  255.    Control::setValue(IDCTG_OPTS_CFG_MOUSE_X_FLIP, Client::getMouseXAxisFlip("playMap.sae"));
  256.    Control::setValue(IDCTG_OPTS_CFG_MOUSE_Y_FLIP, Client::getMouseYAxisFlip("playMap.sae"));
  257.  
  258.    if ($pref::freeLookAlwaysOn == "")
  259.    {
  260.       $pref::freeLookAlwaysOn = "TRUE";
  261.       $pref::freeLook = "TRUE";
  262.    }
  263.    Control::setValue(OptionsMovement::freeLook, $pref::freeLookAlwaysOn);
  264. }
  265.  
  266. function OptionsMovement::updateMouse()
  267. {
  268.    editActionMap("playMap.sae");
  269.  
  270.    //calculate the sensitivity
  271.    %percentage = Control::getValue(IDCTG_OPTS_CFG_MOUSE_SENSITIVE);
  272.    %sensitivity = $minMouseSensitivity + (%percentage * ($maxMouseSensitivity - $minMouseSensitivity));
  273.  
  274.    if (String::ICompare(Control::getValue(IDCTG_OPTS_CFG_MOUSE_X_FLIP), "TRUE") == 0)
  275.    {
  276.       bindAction(mouse0, xaxis0, TO, IDACTION_YAW, Scale, %sensitivity);
  277.    }
  278.    else
  279.    {
  280.       bindAction(mouse0, xaxis0, TO, IDACTION_YAW, Flip, Scale, %sensitivity);
  281.    }
  282.  
  283.    if (String::ICompare(Control::getValue(IDCTG_OPTS_CFG_MOUSE_Y_FLIP), "TRUE") == 0)
  284.    {
  285.       bindAction(mouse0, yaxis0, TO, IDACTION_PITCH, Scale, %sensitivity);
  286.    }
  287.    else
  288.    {
  289.       bindAction(mouse0, yaxis0, TO, IDACTION_PITCH, Flip, Scale, %sensitivity);
  290.    }
  291. }
  292.  
  293. function setFreeLook(%value)
  294. {
  295.    if (String::ICompare($pref::freeLookAlwaysOn, "FALSE") == 0)
  296.    {
  297.       echo("DdbEBUG:  freelook: " @ %value);
  298.       $pref::freeLook = %value;
  299.    }
  300.    else                                             
  301.    {
  302.       $pref::freeLook = TRUE;
  303.    }
  304. }
  305.  
  306. //---  OPTIONS GRAPHICS  ------------------------------------------------
  307.  
  308. function OptionsGraphics::init()
  309. {
  310.    FGSlider::setDiscretePositions(OptionsTextureDetail, 0);
  311.    FGSlider::setDiscretePositions(OptionsTerrainDetail, 0);
  312.    FGSlider::setDiscretePositions(OptionsLightingDetail, 0);
  313.    FGSlider::setDiscretePositions(OptionsDecalDetail, 0);
  314.    FGSlider::setDiscretePositions(OptionsShapeDetail, 0);
  315.    FGSlider::setDiscretePositions(OptionsDamageDetail, 3);
  316.    Control::setValue(OptionsTextureDetail, $pref::TerrainTextureDetail);
  317.    Control::setValue(OptionsTerrainDetail, $pref::TerrainDetail);
  318.    Control::setValue(OptionsLightingDetail, $pref::dynamicLightDistance/200);
  319.    Control::setValue(OptionsDecalDetail, $pref::NumDecals/50);
  320.    Control::setValue(OptionsShapeDetail, ($pref::staticShapeDetail - 0.2)/0.8);
  321.    Control::setValue(OptionsDamageDetail, $pref::damageSkinDetail);
  322. }
  323.  
  324. function OptionsGraphics::setLowDetail()
  325. {
  326.    Control::setValue(OptionsTextureDetail, 0.0);
  327.    Control::setValue(OptionsTerrainDetail, 0.0);
  328.    Control::setValue(OptionsLightingDetail, 0.0);
  329.    Control::setValue(OptionsDecalDetail, 0.0);
  330.    Control::setValue(OptionsShapeDetail, 0.0);
  331.    Control::setValue(OptionsDamageDetail, 0);
  332.    
  333.    OptionsTextureDetail::onAction();
  334.    OptionsTerrainDetail::onAction();
  335.    OptionsLightingDetail::onAction();
  336.    OptionsDecalDetail::onAction();
  337.    OptionsShapeDetail::onAction();
  338.    OptionsDamageDetail::onAction();
  339. }
  340.  
  341. function OptionsGraphics::setMediumDetail()
  342. {
  343.    Control::setValue(OptionsTextureDetail, 0.5);
  344.    Control::setValue(OptionsTerrainDetail, 0.5);
  345.    Control::setValue(OptionsLightingDetail, 0.5);
  346.    Control::setValue(OptionsDecalDetail, 0.5);
  347.    Control::setValue(OptionsShapeDetail, 0.5);
  348.    Control::setValue(OptionsDamageDetail, 1);
  349.  
  350.    OptionsTextureDetail::onAction();
  351.    OptionsTerrainDetail::onAction();
  352.    OptionsLightingDetail::onAction();
  353.    OptionsDecalDetail::onAction();
  354.    OptionsShapeDetail::onAction();
  355.    OptionsDamageDetail::onAction();
  356. }
  357.  
  358. function OptionsGraphics::setHighDetail()
  359. {
  360.    Control::setValue(OptionsTextureDetail, 1.0);
  361.    Control::setValue(OptionsTerrainDetail, 1.0);
  362.    Control::setValue(OptionsLightingDetail, 1.0);
  363.    Control::setValue(OptionsDecalDetail, 1.0);
  364.    Control::setValue(OptionsShapeDetail, 1.0);
  365.    Control::setValue(OptionsDamageDetail, 2);
  366.  
  367.    OptionsTextureDetail::onAction();
  368.    OptionsTerrainDetail::onAction();
  369.    OptionsLightingDetail::onAction();
  370.    OptionsDecalDetail::onAction();
  371.    OptionsShapeDetail::onAction();
  372.    OptionsDamageDetail::onAction();
  373. }
  374.  
  375. function OptionsTextureDetail::onAction()
  376. {
  377.    %val = Control::getValue(OptionsTextureDetail);
  378.    $pref::TerrainTextureDetail = %val;
  379.    $pref::InteriorTextureDetail = floor(((%val)* -8)+ 8);
  380.    $pref::skyDetail = floor(%val * 1.99);
  381.    $pref::starDetail = floor(%val * 1.99);
  382.    $pref::mipcap = floor(%val * 4.99) + 5;
  383.    flushTextureCache();
  384. }                             
  385.  
  386. function OptionsTerrainDetail::onAction()
  387. {
  388.    $pref::TerrainDetail =  Control::getValue(OptionsTerrainDetail);
  389.    $pref::TerrainPerspectiveDistance = Control::getValue(OptionsTerrainDetail);
  390.    $pref::TerrainVisibleDistance = (Control::getValue(OptionsTerrainDetail) * 1300) + 200 ;
  391.    $pref::WeatherPrecipitation = floor(Control::getValue(OptionsTerrainDetail) * 1.4);
  392. }
  393.  
  394. function OptionsLightingDetail::onAction()
  395. {
  396.    $pref::dynamicLightDistance = Control::getValue(OptionsLightingDetail) * 200;
  397.    $pref::interiorLightUpdateMS = ((1.0 - Control::getValue(OptionsLightingDetail)) * 984) + 16;
  398. }
  399.  
  400. function OptionsDecalDetail::onAction()
  401. {
  402.    $pref::NumDecals = Control::getValue(OptionsDecalDetail) * 50;
  403.    $pref::maxNumSmokePuffs = (Control::getValue(OptionsDecalDetail) * 240) + 10;
  404. }
  405.  
  406. function OptionsShapeDetail::onAction()
  407. {
  408.    %value = Control::getValue(OptionsShapeDetail);
  409.  
  410.    $pref::staticShapeDetail = (Control::getValue(OptionsShapeDetail) * 0.8) + 0.2;
  411.    $pref::vehicleShapeDetail = (Control::getValue(OptionsShapeDetail) * 0.8) + 0.2;
  412.    $pref::playerShapeDetail = (Control::getValue(OptionsShapeDetail) * 0.8) + 0.2;
  413.    $pref::animateWithTransitions = %value > 0.9;
  414. }
  415.  
  416. function OptionsDamageDetail::onAction()
  417. {
  418.    $pref::damageSkinDetail = Control::getValue(OptionsDamageDetail);
  419. }
  420.  
  421.  
  422. //---  OPTIONS NETWORK  ------------------------------------------------
  423.  
  424. function OptionsNetwork::init()
  425. {
  426.    //make sure the fields are valid
  427.    OptionsNetwork::validate();
  428.  
  429.    //initalize the gui
  430.     Control::setValue(NetworkAutoRefresh, $pref::AutoRefresh);
  431.     Control::setValue(NetworkHostPublic, $Server::HostPublicGame);
  432.    Control::setValue(NetworkPortNumber, $server::port);
  433.    Control::setValue(NetworkPacketRate, $pref::packetRate);
  434.    Control::setValue(NetworkPacketSize, $pref::packetSize);
  435.    OptionsNetwork::setPacketFrame();
  436.  
  437.    //setup the master server list
  438.    FGMasterList::clear(OptionsNetworkMasterList);
  439.  
  440.    //popuplate the list
  441.    $MasterCount = 0;
  442.    while($Server::MasterAddressN[$MasterCount] != "")
  443.    {
  444.       OptionsNetwork::addMaster($Server::MasterName[$MasterCount], $Server::MasterAddressN[$MasterCount], $MasterCount);
  445.       $MasterCount++;
  446.    }
  447.  
  448.    if ($Server::CurrentMaster == "") $Server::CurrentMaster = 0;
  449.    if ($MasterCount > 0)
  450.    {
  451.       if ($Server::CurrentMaster >= $MasterCount) $Server::CurrentMaster = 0;
  452.       Control::setActive(OptionsNetworkRemoveMaster, true);
  453.       FGMasterList::setSelected(OptionsNetworkMasterList, $Server::CurrentMaster);
  454.    }
  455.    else
  456.    {
  457.       Control::setActive(OptionsNetworkRemoveMaster, true);
  458.    }
  459. }
  460.  
  461. function OptionsNetwork::addMaster(%name, %addr, %id)
  462. {
  463.    if (%name == "") %name = "Tribes Master";
  464.    if (%addr != "")
  465.    {
  466.       FGMasterList::addEntry(OptionsNetworkMasterList, %name, %addr, %id);
  467.       $Server::MasterName[%id] = %name;
  468.       $Server::MasterAddressN[%id] = %addr;
  469.    }
  470. }
  471.  
  472. function OptionsNetwork::deleteSelectedMaster()
  473. {
  474.    if ($Server::CurrentMaster >= 0)
  475.    {
  476.       //replace the current entry with the last
  477.       if ($Server::CurrentMaster < $MasterCount - 1)
  478.       {
  479.          $Server::MasterName[$Server::CurrentMaster] = $Server::MasterName[$MasterCount - 1];
  480.          $Server::MasterAddressN[$Server::CurrentMaster] = $Server::MasterAddressN[$MasterCount - 1];
  481.       }
  482.       $Server::MasterName[$MasterCount - 1] = "";
  483.       $Server::MasterAddressN[$MasterCount - 1] = "";
  484.  
  485.       FGMasterlist::clear(OptionsNetworkMasterList);
  486.  
  487.       //popuplate the list
  488.       $MasterCount = 0;
  489.       while($Server::MasterAddressN[$MasterCount] != "")
  490.       {
  491.          OptionsNetwork::addMaster($Server::MasterName[$MasterCount], $Server::MasterAddressN[$MasterCount], $MasterCount);
  492.          $MasterCount++;
  493.       }
  494.    }
  495.    if ($MasterCount > 0)
  496.    {
  497.       if ($Server::CurrentMaster >= $MasterCount) $Server::CurrentMaster = 0;
  498.       Control::setActive(OptionsNetworkRemoveMaster, TRUE);
  499.       FGMasterList::setSelected(OptionsNetworkMasterList, $Server::CurrentMaster);
  500.         selectNewMaster();
  501.    }
  502.    else
  503.    {
  504.       Control::setActive(OptionsNetworkRemoveMaster, FALSE);
  505.    }
  506. }
  507.  
  508. function OptionsNetwork::verifyMaster()
  509. {
  510.    %name = Control::getValue(OptionsNetworkMasterName);
  511.    %addr = Control::getValue(OptionsNetworkMasterAddress);
  512.    if (%name != "" && %addr != "")
  513.    {
  514.       Control::setActive(DialogReturnButton, true);
  515.    }
  516.    else
  517.    {
  518.       Control::setActive(DialogReturnButton, false);
  519.    }
  520. }
  521.  
  522. function OptionsNetwork::newMaster()
  523. {
  524.    %name = Control::getValue(OptionsNetworkMasterName);
  525.    %addr = Control::getValue(OptionsNetworkMasterAddress);
  526.    OptionsNetwork::addMaster(%name, %addr, $MasterCount);
  527.  
  528.    $Server::CurrentMaster = $MasterCount;
  529.    FGMasterList::setSelected(OptionsNetworkMasterList, $Server::CurrentMaster);
  530.    Control::setActive(OptionsNetworkRemoveMaster, true);
  531.  
  532.    $MasterCount++;
  533.  
  534.    GuiPopDialog(MainWindow, 0);
  535.     selectNewMaster();
  536. }
  537.  
  538. function OptionsNetwork::warnPublicServer()
  539. {
  540.    GuiPushDialog(MainWindow, "gui\\hostwarn.gui");
  541. }
  542.  
  543. function OptionsGui::HostPublicOK()
  544. {
  545.    $Server::HostPublicGame = true;
  546.    GuiPopDialog(MainWindow, 1);
  547. }
  548.  
  549. function OptionsNetwork::HostPublicCancel()
  550. {
  551.    $Server::HostPublicGame = false;
  552.    Control::setValue(NetworkHostPublic, "FALSE");
  553.    GuiPopDialog(MainWindow, 1);
  554. }
  555.  
  556. function OptionsNetwork::shutdown()
  557. {
  558.    OptionsNetwork::validate();
  559. }
  560.  
  561. function OptionsNetwork::setPacketFrame()
  562. {
  563.    %value = 1.0 - (($pref::packetFrame - 32) / (128 - 32));
  564.    Control::setValue(NetworkPacketFrame, %value);
  565. }
  566.  
  567. function NetworkPacketFrame::onAction()
  568. {
  569.    %value = 1.0 - Control::getValue(NetworkPacketFrame);
  570.    $pref::packetFrame = 32 + (%value * (128 - 32));
  571. }
  572.  
  573. function OptionsNetwork::validate()
  574. {
  575.     if ($pref::AutoRefresh == "") $pref::AutoRefresh = TRUE;
  576.     if ($Server::HostPublicGame == "") $Server::HostPublicGame = FALSE;
  577.  
  578.    if ($pref::packetRate < 1) $pref::packetRate = 10;
  579.    if ($pref::packetRate > 30) $pref::packetRate = 30;
  580.    Control::setValue(NetworkPacketRate, $pref::packetRate);
  581.  
  582.    if ($pref::packetSize < 100) $pref::packetSize = 200;
  583.    if ($pref::packetSize > 500) $pref::packetSize = 500;
  584.    Control::setValue(NetworkPacketSize, $pref::packetSize);
  585.  
  586.    if ($pref::packetFrame < 32) $pref::packetFrame = 96;
  587.    if ($pref::packetFrame > 128) $pref::packetFrame = 128;
  588.    OptionsNetwork::setPacketFrame();
  589. }
  590.  
  591.  
  592. function OptionsNetwork::setT1Defaults()
  593. {
  594.    $pref::packetRate = 15;
  595.    $pref::packetSize = 400;
  596.    $pref::packetFrame = 32;
  597.    Control::setValue(NetworkPacketRate, $pref::packetRate);
  598.    Control::setValue(NetworkPacketSize, $pref::packetSize);
  599.    OptionsNetwork::setPacketFrame();
  600. }
  601.  
  602. function OptionsNetwork::setISDNDefaults()
  603. {
  604.    $pref::packetRate = 15;
  605.    $pref::packetSize = 300;
  606.    $pref::packetFrame = 32;
  607.    Control::setValue(NetworkPacketRate, $pref::packetRate);
  608.    Control::setValue(NetworkPacketSize, $pref::packetSize);
  609.    OptionsNetwork::setPacketFrame();
  610. }
  611.  
  612. function OptionsNetwork::setModemDefaults()
  613. {
  614.    $pref::packetRate = 10;
  615.    $pref::packetSize = 200;
  616.    $pref::packetFrame = 96;
  617.    Control::setValue(NetworkPacketRate, $pref::packetRate);
  618.    Control::setValue(NetworkPacketSize, $pref::packetSize);
  619.    OptionsNetwork::setPacketFrame();
  620. }
  621.  
  622. //---  OPTIONS SOUND  ------------------------------------------------
  623.  
  624. function OptionsSound::init()
  625. {
  626.    sfxClose();
  627.  
  628.    %SFX_QUERY_DSOUND     = 1; 
  629.    %SFX_QUERY_DSOUND3D   = 2;
  630.    %SFX_QUERY_AUREAL3D   = 3;
  631.    %SFX_QUERY_LIVE3D     = 4;
  632.  
  633.    FGSlider::setDiscretePositions(OptionsSoundCDVolume, 0);
  634.    FGSlider::setDiscretePositions(OptionsSound2DVolume, 0);
  635.    FGSlider::setDiscretePositions(OptionsSound3DVolume, 0);
  636.    Control::setValue(OptionsSoundCDVolume, $pref::cdVolume);
  637.    Control::setValue(OptionsSound2DVolume, $pref::sfx2dVolume);
  638.    Control::setValue(OptionsSound3DVolume, $pref::sfx3dVolume);
  639.  
  640.    //setup the 3d sound driver combo
  641.    FGCombo::clear(OptionsSound3DDriver);
  642.    if (sfxQuery(%SFX_QUERY_DSOUND)) FGCombo::addEntry(OptionsSound3DDriver, "Direct Sound", %SFX_QUERY_DSOUND);
  643.    //if (sfxQuery(%SFX_QUERY_DSOUND3D)) FGCombo::addEntry(OptionsSound3DDriver, "Direct Sound 3D", %SFX_QUERY_DSOUND3D);
  644.    if (sfxQuery(%SFX_QUERY_AUREAL3D)) FGCombo::addEntry(OptionsSound3DDriver, "Aureal Sound 3D", %SFX_QUERY_AUREAL3D);
  645.    //if (sfxQuery(%SFX_QUERY_LIVE3D)) FGCombo::addEntry(OptionsSound3DDriver, "Sound Blaster Live 3D", %SFX_QUERY_LIVE3D);
  646.  
  647.    if ($pref::useDSound) FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_DSOUND);
  648.    //else if ($pref::useDSound3D) FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_DSOUND3D);
  649.    else if ($pref::useAureal3D) FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_AUREAL3D);
  650.    //else if ($pref::useLive3D) FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_LIVE3D);
  651.    else
  652.    {
  653.       $pref::useDSound = FALSE;
  654.       $pref::useDSound3D = FALSE;
  655.       $pref::useAureal3D = FALSE;
  656.       $pref::useLive3D = FALSE;
  657.  
  658.       FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_DSOUND);
  659.       //FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_DSOUND3D);
  660.       FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_AUREAL3D);
  661.       //FGCombo::setSelected(OptionsSound3DDriver, %SFX_QUERY_LIVE3D);
  662.  
  663.       %entry = FGCombo::getSelected(OptionsSound3DDriver);
  664.       if (%entry == %SFX_QUERY_DSOUND) $pref::useDSound = TRUE;
  665.       //else if (%entry == %SFX_QUERY_DSOUND3D) $pref::useDSound3D = TRUE;
  666.       else if (%entry == %SFX_QUERY_AUREAL3D) $pref::useAureal3D = TRUE;
  667.       //else if (%entry == %SFX_QUERY_LIVE3D) $pref::useLive3D = TRUE;
  668.  
  669.    }
  670.  
  671.    //open sound
  672.    sfxOpen();
  673.  
  674.    //intialize a var
  675.    if ($pref::playVoices == "") $pref::playVoices = true;
  676.    Control::setValue(OptionsSoundPlayVoices, $pref::playVoices);
  677. }
  678.  
  679. function OptionsSound3DDriver::onAction()
  680. {
  681.    %SFX_QUERY_DSOUND     = 1; 
  682.    %SFX_QUERY_DSOUND3D   = 2;
  683.    %SFX_QUERY_AUREAL3D   = 3;
  684.    %SFX_QUERY_LIVE3D     = 4;
  685.  
  686.    sfxClose();
  687.  
  688.    $pref::useDSound = FALSE;
  689.    $pref::useDSound3D = FALSE;
  690.    $pref::useAureal3D = FALSE;
  691.    $pref::useLive3D = FALSE;
  692.  
  693.    %entry = FGCombo::getSelected(OptionsSound3DDriver);
  694.    echo("Survey says: " @ %entry);
  695.    if (%entry == %SFX_QUERY_DSOUND) $pref::useDSound = TRUE;
  696.    //else if (%entry == %SFX_QUERY_DSOUND3D) $pref::useDSound3D = TRUE;
  697.    //else if (%entry == %SFX_QUERY_AUREAL3D) $pref::useAureal3D = TRUE;
  698.    //else if (%entry == %SFX_QUERY_LIVE3D) $pref::useLive3D = TRUE;
  699.  
  700.    sfxOpen();
  701. }
  702.  
  703. function OptionsSoundCDVolume::onAction()
  704. {
  705.    $pref::CDVolume = Control::getValue(OptionsSoundCDVolume);
  706.    rbSetVolume(CD, 1 - $pref::CDVolume);
  707. }                             
  708.  
  709. function OptionsSoundCDMusic::onAction()
  710. {
  711.    if ($pref::CDMusic)
  712.    {
  713.       echo("Music is ON");
  714.       $userCDOverride = False;
  715.       newRedBook (CD, MainWindow);
  716.       if ($cdTrack != "" && $cdTrack != 0)
  717.          {
  718.             rbSetPlayMode (CD, $cdPlayMode);
  719.             rbPlay (CD, $cdTrack);
  720.          }
  721.    }
  722.    else
  723.    {
  724.       echo("Music is OFF");
  725.       rbSetPlayMode (CD, 0);
  726.       rbStop (CD);
  727.       deleteObject (CD);
  728.    }
  729. }
  730.  
  731. function OptionsSound2DVolume::onAction()
  732. {
  733.    $pref::sfx2dVolume = 0.01 + (0.99 * Control::getValue(OptionsSound2DVolume));
  734. }                             
  735.  
  736. function OptionsSound3DVolume::onAction()
  737. {
  738.    $pref::sfx3dVolume = 0.01 + (0.99 * Control::getValue(OptionsSound3DVolume));
  739. }                             
  740.  
  741.  
  742.